home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 January
/
64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64
/
linien demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
319b
|
14 lines
5 rem ***********************
6 rem * linien demo (hires) *
7 rem ***********************
10 gosub 50000:rem grafik ein
20 gosub 50100:rem grafik loeschen
30 vo=0:hi=14
40 gosub 50200:rem farbe setzen
50 for x=0 to 318 step 5
60 sys 49821,x,x/1.7,318-x,y,3
65 sys 49821,x,199-x/1.7,318-x,199-y,3
70 y=y+1:if y>199 then y=199
80 next x
90 end